object frmMultas: TfrmMultas Left = 196 Top = 114 BorderStyle = bsNone Caption = 'frmMultas' ClientHeight = 491 ClientWidth = 688 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 688 Height = 491 Align = alClient Picture.Data = {} Stretch = True end object Label61: TLabel Left = 22 Top = 85 Width = 70 Height = 13 Caption = 'Ordenados por' Transparent = True end object Label10: TLabel Left = 248 Top = 85 Width = 19 Height = 13 Caption = 'Ano' Transparent = True end object RxLabel2: TRxLabel Left = 413 Top = 85 Width = 10 Height = 17 Alignment = taRightJustify Caption = '0' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object SpeedButton3: TSpeedButton Left = 433 Top = 83 Width = 100 Height = 20 Caption = 'Seleccionar Todos' Flat = True OnClick = SpeedButton3Click end object Label1: TLabel Left = 444 Top = 400 Width = 98 Height = 13 Caption = 'Dar uma margem de ' Transparent = True end object Label8: TLabel Left = 10 Top = 36 Width = 660 Height = 41 Alignment = taCenter AutoSize = False Caption = 'Devem seleccionar-se os condom�nios em que se pretende fazer a a' + 'n�lise das penaliza��es. O resultado dessa an�lise pode dar a or' + 'igem ao lan�amento de um Aviso de D�bito ou apenas d�bito nas co' + 'ntas correntes dos cond�minos em d�vida. � ainda poss�vel defini' + 'r uma margem em dias a partir da data de vencimento do documento' + '. Os crit�rios a aplicar s�o os definidos para cada condom�nio.' Transparent = True WordWrap = True end object Label2: TLabel Left = 8 Top = 4 Width = 430 Height = 29 Caption = 'Verifica��o de penaliza��es (multas)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label3: TLabel Left = 580 Top = 400 Width = 22 Height = 13 Caption = 'dias.' Transparent = True end object ComboBox4: TComboBox Left = 102 Top = 83 Width = 110 Height = 21 Hint = 'Muda a ordena��o da lista' Style = csDropDownList Color = clInfoBk ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnChange = ComboBox4Change Items.Strings = ( 'C�digo' 'Condom�nio' 'Contribuinte' 'Ano') end object Edit2: TEdit Left = 278 Top = 83 Width = 50 Height = 21 Hint = 'Texto a procurar, dependendo da ordena��o' TabStop = False Color = clInfoBk Ctl3D = True ParentCtl3D = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 1 Text = '2002' OnChange = Edit2Change end object UpDown1: TUpDown Left = 328 Top = 83 Width = 16 Height = 21 Associate = Edit2 Min = 1995 Max = 2010 Position = 2002 TabOrder = 2 Thousands = False Wrap = False end object CheckBox1: TCheckBox Left = 349 Top = 85 Width = 49 Height = 17 Caption = 'Todos' TabOrder = 3 OnClick = CheckBox1Click end object RxDBGrid1: TRxDBGrid Left = 20 Top = 112 Width = 645 Height = 265 Ctl3D = False DataSource = DataSource1 FixedColor = 14143935 Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect] ParentCtl3D = False TabOrder = 4 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] MultiSelect = True Columns = < item Expanded = False FieldName = 'ID' Title.Alignment = taCenter Title.Caption = 'C�d.' Width = 60 Visible = True end item Expanded = False FieldName = 'Condom�nio' Title.Alignment = taCenter Width = 410 Visible = True end item Expanded = False FieldName = 'Contr.' Title.Alignment = taCenter Width = 89 Visible = True end item Expanded = False FieldName = 'Ano' Title.Alignment = taCenter Width = 60 Visible = True end> end object RadioGroup2: TRadioGroup Left = 220 Top = 385 Width = 185 Height = 88 ItemIndex = 0 Items.Strings = ( 'Verificar Avisos de D�bito' 'Verificar Recibos n�o pagos' 'Verificar Avisos e Recibos') TabOrder = 5 end object RadioGroup1: TRadioGroup Left = 20 Top = 385 Width = 185 Height = 88 ItemIndex = 0 Items.Strings = ( 'Criar Avisos de D�bito' 'S� lan�ar em Contas Correntes' 'Simular apenas') TabOrder = 6 end object CurrencyEdit1: TCurrencyEdit Left = 546 Top = 397 Width = 30 Height = 19 AutoSize = False Ctl3D = False DecimalPlaces = 0 DisplayFormat = ',0;-,0' ParentCtl3D = False TabOrder = 7 end object BitBtn1: TBitBtn Left = 442 Top = 439 Width = 90 Height = 25 Caption = 'Analisar' TabOrder = 8 OnClick = BitBtn1Click Glyph.Data = { 1A070000424D1A0700000000000036000000280000001C000000150000000100 180000000000E406000012170000121700000000000000000000FFFFFFEFE7E7 B57373C69C9CF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB57B7B9431318C29319C5A63EFE7E7 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFB56B6B8C29318C31319431398C3131D6BDBDFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7EFEFA56B738C 29319431318C31318C3131AD7B7BEFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7CEA5A58C31318C31319429318C 3131944A4ADECECEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFEFDEDEA54A528C31318C31319431398C3131B58C8CF7 F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFF7F7F7B57B7B8C29319431318C3131943131945252EFEFEFFFFFFFFFFFFFFF FFFFD6CECEA5A59CADA5A5BDB5B5DEDEDEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDEB5BD9439 398C31318C29318C3131BDADADFFFFFFF7F7F7ADADA58C9484949C8C84847B7B 736B7B736BA59C94E7E7E7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E79C5A5A8C21298418218C5A 5AE7E7E7A5C6B5ADEFC6CEEFC6E7EFC6EFEFC6D6D6B5949C8C847B73948C7BDE D6D6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFF7F7F7CEA5A5D6ADB59C84847B7B7394E7C6BDEFC6CEEF C6E7EFC6F7EFC6FFEFC6F7EFC6ADAD9C847B73948C84E7E7DEFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF7BA5949CEFC6C6EFC6CEEFC6E7EFC6F7EFC6FFEFC6FFEF C6E7EFCEADA5A5847B73A59C94F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F77BA594 9CEFC6BDEFC6CEEFC6E7EFC6EFEFC6F7EFC6FFEFC6F7EFC6F7EFDEA59C94847B 73DED6D6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7BA59494EFC6B5EFC6CEEFC6D6EFC6 E7EFC6F7EFC6FFEFC6FFEFC6FFEFC6DEE7BD84847BA59C94FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFA5A59C8CEFC6ADEFC6C6EFC6CEEFC6DEEFC6EFEFC6F7EFC6FFEFC6 FFEFC6F7EFC69C9C8C847B73F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDED6D67BCEAD9C EFC6B5EFC6C6EFC6D6EFC6E7EFC6EFEFC6F7EFC6FFEFC6FFEFC6B5BDA57B736B EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA5ADA58CE7BDA5EFC6BDEFC6CEEFC6D6 EFC6DEEFC6EFEFC6F7EFC6F7EFC6BDCEAD7B7373FFF7F7FFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFEFEFEF8CAD9C8CE7C6ADEFC6BDEFC6C6EFC6D6EFC6DEEFC6E7EFC6E7 EFC6A5B5A5A5A59CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7DE8CAD 9C8CE7C6A5EFC6B5EFC6BDEFC6C6EFC6CEEFC6BDEFC6A5B5A5EFEFEFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFEFEFA5ADA57BBDA58CE7BD9CEF C6A5EFC69CDEBDA5C6B5EFEFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFDED6D6ADADA5949C94949C94BDBDB5EFEFEFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} end object BitBtn2: TBitBtn Left = 552 Top = 439 Width = 90 Height = 25 Caption = 'Sair' TabOrder = 9 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB 0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB 0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB 0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB 0333337F777FFFFF7F3333000000000003333377777777777333} NumGlyphs = 2 end object ListBox1: TListBox Left = 480 Top = 136 Width = 121 Height = 225 ItemHeight = 13 TabOrder = 10 Visible = False end object Table1: TTable Left = 456 Top = 8 end object DataSource1: TDataSource DataSet = Table1 Left = 488 Top = 8 end object tRecibos: TTable DatabaseName = 'Database1' Filtered = True IndexName = 'iNumero' TableName = 'Recibos.db' Left = 528 Top = 8 end object MemoryTable1: TMemoryTable Left = 568 Top = 8 object MemoryTable1Nome: TStringField FieldName = 'Nome' Size = 50 end object MemoryTable1Fraccao: TStringField FieldName = 'Fraccao' Size = 15 end object MemoryTable1Tipo: TStringField FieldName = 'Tipo' end object MemoryTable1Numero: TIntegerField FieldName = 'Numero' end object MemoryTable1Data: TDateField FieldName = 'Data' end object MemoryTable1PorLiquidar: TFloatField FieldName = 'PorLiquidar' end object MemoryTable1Multa: TFloatField FieldName = 'Multa' end end object frReport1: TfrReport InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] OnBeforePrint = frReport1BeforePrint Left = 656 Top = 72 ReportForm = {18000000} end object frTextExport1: TfrTextExport ScaleX = 1 ScaleY = 1 Left = 656 Top = 112 end object frRTFExport1: TfrRTFExport ScaleX = 1.300000000000000000 ScaleY = 1 Left = 656 Top = 144 end object frCSVExport1: TfrCSVExport ScaleX = 1 ScaleY = 1 Delimiter = ';' Left = 656 Top = 176 end object frHTMExport1: TfrHTMExport ScaleX = 1 ScaleY = 1 Left = 656 Top = 208 end object frBDEComponents1: TfrBDEComponents Left = 656 Top = 240 end object frDBDataSet1: TfrDBDataSet DataSet = MemoryTable1 Left = 656 Top = 272 end end